﻿Namespace QuanLyKhachHang
    Public Class TimKiemBAL
        Public Function TimKiem_KhuyenMai(ByVal TuNgay As Integer, ByVal DenNgay As Integer, ByVal KhachHangId As Integer, ByVal MaSanPham As String, ByVal SoLuong As Single, ByVal Type As Integer) As List(Of KhachHang)
            Try
                Dim doit As New TimKiemDAL
                Return doit.TimKiem_KhuyenMai(TuNgay, DenNgay, KhachHangId, MaSanPham, SoLuong, Type)
            Catch ex As Exception
                Throw
            End Try
        End Function
    End Class
End Namespace
